Celestin Apprentice 4/Apprentice-Release4.iso/Languages/CW MacMindy 1.4/Examples/Modules/beep.dyl

Text File | 1995-05-13 | 303 b | 15 lines | [TEXT/CWIE]

module:    Beep

define module Beep
    use Dylan;                // all programs need this.
    use Cheap-IO;            // imports "puts & putc"
    export beep;            // make beep available to the world.
end module Beep;

// an exported method.

define constant beep = method ()
    puts("*beep*\n");
    putc(as(<character>, 7));
end method;